library(plotly)
Does the web page feature a date and is this date less than two months before the date that youโre grading this assignment?
Is the web page a presentation and does it feature an interactive plot that appears to have been created with Plotly?
# Generate fictional data
set.seed(123)
hours_studied <- rnorm(50, 10, 3)
final_grade <- hours_studied + rnorm(50, 0, 2)
# Create the Plotly plot
plot_ly(x = hours_studied, y = final_grade, type = "scatter", mode = "markers") %>%
layout(title = "Hours Studied vs. Final Grade",
xaxis = list(title = "Hours Studied"),
yaxis = list(title = "Final Grade"))
LS0tCnRpdGxlOiAnUGVlci1ncmFkZWQgQXNzaWdubWVudDogUiBNYXJrZG93biBQcmVzZW50YXRpb24gJiBQbG90bHknCmF1dG9yOiBNYWppZCBNYWhtb29kCmRhdGU6ICIxMi1NYXktMjAyMyIKb3V0cHV0OgogIHBkZl9kb2N1bWVudDogZGVmYXVsdAogIGh0bWxfbm90ZWJvb2s6IGRlZmF1bHQKLS0tCmBgYHtyfQpsaWJyYXJ5KHBsb3RseSkKYGBgCiMjIERvZXMgdGhlIHdlYiBwYWdlIGZlYXR1cmUgYSBkYXRlIGFuZCBpcyB0aGlzIGRhdGUgbGVzcyB0aGFuIHR3byBtb250aHMgYmVmb3JlIHRoZSBkYXRlIHRoYXQgeW91J3JlIGdyYWRpbmcgdGhpcyBhc3NpZ25tZW50PwoKIyMgSXMgdGhlIHdlYiBwYWdlIGEgcHJlc2VudGF0aW9uIGFuZCBkb2VzIGl0IGZlYXR1cmUgYW4gaW50ZXJhY3RpdmUgcGxvdCB0aGF0IGFwcGVhcnMgdG8gaGF2ZSBiZWVuIGNyZWF0ZWQgd2l0aCBQbG90bHk/CgpgYGB7cn0KIyBHZW5lcmF0ZSBmaWN0aW9uYWwgZGF0YQpzZXQuc2VlZCgxMjMpCmhvdXJzX3N0dWRpZWQgPC0gcm5vcm0oNTAsIDEwLCAzKQpmaW5hbF9ncmFkZSA8LSBob3Vyc19zdHVkaWVkICsgcm5vcm0oNTAsIDAsIDIpCgojIENyZWF0ZSB0aGUgUGxvdGx5IHBsb3QKcGxvdF9seSh4ID0gaG91cnNfc3R1ZGllZCwgeSA9IGZpbmFsX2dyYWRlLCB0eXBlID0gInNjYXR0ZXIiLCBtb2RlID0gIm1hcmtlcnMiKSAlPiUKICBsYXlvdXQodGl0bGUgPSAiSG91cnMgU3R1ZGllZCB2cy4gRmluYWwgR3JhZGUiLAogICAgICAgICB4YXhpcyA9IGxpc3QodGl0bGUgPSAiSG91cnMgU3R1ZGllZCIpLAogICAgICAgICB5YXhpcyA9IGxpc3QodGl0bGUgPSAiRmluYWwgR3JhZGUiKSkKYGBgCgo=